home *** CD-ROM | disk | FTP | other *** search
- #
- # Second part of Insert-Function-Header
- #
- # $VER: insertfh2 V1.00 (18.11.1992)
- #
-
- # get the name, the user entered
- firstnb scanf w
-
- # find function-body and add the name at the top in a default protoype
- find { insline `$scanf ()'
-
- # look for comment at the end
- find /* 3 right
-
- # and insert the function-name there, too
- `$scanf'
-
- # insert std. history-entry
- findstr HISTORY prev
- down insline
- tab ($DATE) tab ($USER) tab (created)
-
- # find parameters and position cursor there
- findstr SYNOPSIS prev
- down insline tab
-